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-- BcdMerge.Mesa Edited by Sandman on May 12, 1978 8:47 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [PageSize], 

AltoFileDefs: FROM "altof iledef s" USING [TIME], 

BcdDefs: FROM "bcddefs'' USING [ 

BCD, BinderNTables, ControlLink, CTHandle, CTIndex, CTNull , CTRecord, 
cttype, EXPHandle, EXPIndex, EXPRecord, exptype, FTIndex, FTNull, 
FTRecord, FTSelf, fttype, GFTIndex, IMPHandle, IMPIndex, IMPNull , 
IMPRecord, imptype, MTHandle, MTIndex, MTNull , MTRecord, mttype, Namee, 
NameRecord, NameString, NTIndex, NTRecord, nttype, NullLink, NullName, 
SGHandle, SGIndex, SGRecord, sgtype, sstype, UnboundLink, VersionID, 
VersionStamp], 

BcdMergeDefs: FROM "bcdmergedef s" USING [MergeData, MergeDataHandle] , 

BcdTabDefs: FROM "bcdtabdefs" USING [ 

BcdTabErase, BcdTablnit, EnterString, FindEquivalentString, FindString, 
HTIndex, SubStringForHash] , 

ControlDefs: FROM "controldef s" USING [GET, Global FrameHandle] , 

FrameDefs: FROM "framedefs" USING [ 

DeletedFrame, LockCode, SwapOutCode, UnlockCode], 

imineDefs: FROM "inlinedefs" USING [COPY], 

LoaderBcdUtilDefs: FROM "loaderbcdutildef s" USING [ 

BcdBase, EnumerateConf igTable, EnumerateExportTable, EnumeratelmportTable, 
EnumerateModuleTable, FindName], 

LoadStateDefs: FROM "loadstatedef s" USING [ 
Configlndex, LoadStateGFT, Relocation], 

MiscDefs: FROM "miscdefs" USING [DAYTIME, GetNetworkNumber , Zero], 

OsStaticDefs: FROM "osstaticdef s" USING [OsStatics], 

SegmentDefs: FROM "segmentdef s" USING [ 

Append, ChangeDataToFileSegment , DefaultBase, Def aul tVersion, 
DeleteFileSegment , FileSegmentAddress , MoveFileSegment , NewFile, 
NewFileSegment , Read, Swapin, SwapOut, Unlock, VMtoDataSegment, Write], 

StringDefs: FROM "stringdefs" USING [Substring, SubStringDescriptor] . 

SystemDefs: FROM "systemdef s" USING [ 

AllocateHeapNode, AllocatePages, FreeHeapNode, FreeSegment, 
PagesForWords], 

TableDefs: FROM "tabledefs" USING [ 

AddNotify, Allocate, DropNotify, EraseTable, Initial izeTable, TableBase, 
TableBounds, TableNotif ier , TableOverf low], 

TimeDefs: FROM "timedefs" USING [PackedTime]; 

DEFINITIONS FROM LoadStateDefs, LoaderBcdUtilDef s , BcdDefs; 

BcdMerge: PROGRAM 

IMPORTS BcdTabDefs, TableDefs. FrameDefs. LoaderBcdUtilDef s, 

MiscDefs, SegmentDefs, SystemDefs 
EXPORTS BcdMergeDefs = PUBLIC 
BEGIN 

GlobalFrameHandle: TYPE = ControlDefs .GlobalFrameHandle; 

HTIndex: TYPE = BcdTabDefs .HTIndex; 

SubStringDescriptor: TYPE = StringDefs. SubStringDescriptor; 

Substring: TYPE » StringDefs. Substring; 

NameString: TYPE = BcdDefs .NameString; 

data: BcdMergeDefs .MergeDataHandle; 

Notifier: PRIVATE TableDefs .TableNotif ier » 
BEGIN OPEN BcdDefs. data; 
mtb *- base[mttype]; 
ftb <- base[fttype]; 
ctb ♦- base[cttype]; 
itb ^ base[imptype]; 
etb <- base[exptype]; 
ntb <- base[nttype]; 
sgb *- base[sgtype]; 
ssb <- LOOPHOLE[base[sstype]]; 
END; 

EnterName: PROCEDURE [ss: Substring] RETURNS [NameRecord] » 
BEGIN OPEN BcdTabDefs; 
Iss: SubStringDescriptor; 
hti: HTIndex « EnterStr ing[ss] ; 
SubStringForHash[§lss.hti]; 
RETURN[[lss. offset]]; 
END; 
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MapName: PROCEDURE [bed: BcdBase, n: NameRecord] RETURNS [NameRecord] ■ 
BEGIN 

ssb: NameString <- LOOPHOLE[bcd+bcd. ssOf f set] ; 
ss: SubStringDescriptor <- 

[base: @ssb. string, offset: n, length: ssb . size[n.]]; 
RETURN[EnterName[0ss]]: 
END; 

MapEquivalentName: PROCEDURE [bed: BedBase, n: NameReeord] RETURNS [NameRecord] 
BEGIN 

found: BOOLEAN; 
hti: HTIndex; 

ssb: NameString ^ LOOPHOLE[bed+bcd.ssOff set] ; 
ss: SubStringDescriptor ♦- 

[base: 0ssb. string, offset: n, length: ssb .size[n]]; 
[found, hti] ^ BcdTabDef s .FindEquiva1entString[@ss]; 
IF found THEN RETURN[NameForHti[hti]] ; 
RETURN[EnterName[0ss]]; 
END; 

HtiName: PROCEDURE [n: NameRecord] RETURNS [HTIndex] ■ 
BEGIN OPEN data; 
ss: SubStringDescriptor ♦- 

[base: @ssb. string, offset: n, length: ssb , size[n]] ; 
RETURN[BedTabDefs.FindString[@ss].hti]; 
END; 

NameForHti: PROCEDURE [hti: HTIndex] RETURNS [NameRecord] = 
BEGIN 

ss: SubStringDescriptor; 
BcdTabDefs.SubStringForHash[0ss, hti]; 
RETURN[[ss. offset]]; 
END; 

EquivalentVersions: PROCEDURE [vl, v2: POINTER TO VersionStamp] 
RETURNS [BOOLEAN] = 
BEGIN 

RETURN[vl. zapped OR v2. zapped OR vlt » v2t] 
END; 

MergeFile: PROCEDURE [bed: BcdBase, oldfti: FTIndex] RETURNS [fti: FTIndex] » 
BEGIN OPEN data; 
NullVersion: BcdDefs .VersionStamp »« 

[zapped: FALSE, net: 0, host: 0, time: [0.0]]; 
oldftb: CARDINAL = LOOPHOLE[bcd+bcd. f tOf f set] ; 

ftLimit: FTIndex = LOOPHOLE[TableDef s .TableBounds[f ttype] . size] ; 
fn: NameRecord; 

IF oldfti « FTSelf THEN RETURN[WhoIsFTSelf []] ; 
fn <- MapEquivalentName[bcd, (oldf tb+oldf ti ) .name]; 
FOR fti *- FIRST[FTIndex], f ti+SI2E[FTRecord] 
UNTIL fti = ftLimit DO 

OPEN new: ftb+fti. old: oldf tb+oldf ti ; 
IF new. name » fn THEN 
BEGIN 
SELECT TRUE FROM 

(new. version - NullVersion) »> 

BEGIN new. version *- old. version; RETURN END; 
EquivalentVersions[0new.version, 6o Id. version], 
(old. version « NullVersion) =«> 
BEGIN 

IF old .version. zapped THEN new. version, zapped ^ TRUE; 
RETURN 
END; 
ENDCASE; 
END; 
ENDLOOP; 
fti <- TableDefs.Allocate[fttype, SIZE[FTRecord]] ; 
(ftb+fti)t ♦- [name: fn, version: (ol df tb+oldf ti ) .version]; 
RETURN 
END; 

MergeSegment: PROCEDURE [bed: BcdBase, sgh: SGHandle, fti: FTIndex] 
RETURNS [sgi: SGIndex] - 
BEGIN OPEN data; 
sgLimit: SGIndex « LOOPHOLE[TableDef s.TableBounds[sgtype]. size]; 
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IF fti » FTNun THEN fti ^ MGrgeFi1e[bcd , sgh.file]; 

FOR sgi *- FIRST[SGIndex], sgi+SIZE[SGRecord] UNTIL sgi « sgLimit DO 

OPEN new: sgb+sgi; 

IF new. class « sgh. class AND new. file « fti AND new. base ■ sgh.base 
AND new. pages ■ sgh. pages AND new.extraPages « sgh .extraPages 
THEN RETURN; 

ENDLOOP; 
sgi ^ TableDefs.Anocate[sgtype, SIZE[SGRecord]]; 
(sgb+sgi)t <- [class: sgh. class, file: fti, base: sgh.base, 

pages: sgh. pages, extraPages: sgh. extraPages] ; 
RETURN 
END; 

GetDummyGfi: PROCEDURE [n: CARDINAL] RETURNS [gfi: GFTIndex] - 
BEGIN 

gfi ♦- data.nextDummyGf i ; 
data. nextDummyGf i <- data.nextDummyGf i + n; 
RETURN 
END; 

GetGfi: PROCEDURE [n: CARDINAL] RETURNS [gfi: GFTIndex] - 
BEGIN 

gfi <r data.nextGf i ; 
data.nextGfi *- data.nextGfi + n; 
RETURN 
END; 

MergeModule: PUBLIC PROCEDURE [frame, copied: Global FrameHandle , initialGFT: LoadStateGFT] 
BEGIN OPEN data; 
ccgfi: GFTIndex; 
mti, newmti: MTIndex; 
mth, newmth: MTHandle; 
i: CARDINAL; 

ccgfi ♦- initialGFT[copied.gf i] .gf i ; 

FOR mti <- FIRST[MTIndex], mti + SIZE[MTRecord] + (mtb+mti) .frame, length 
UNTIL mti = LOOPHOLE[TableDef s .TableBounds[mttype] . size, MTIndex] DO 
IF (mtb+mti). gfi « ccgfi THEN EXIT; 
REPEAT FINISHED => ERROR; 
ENDLOOP; 
newmti ^ TableDef s .Al locate[mttype, SIZE[MTRecord] + 
(mtb+mti) .frame. length 1 TableDef s .TableOverf low "> 
BEGIN 

ExpandTable[] ; 

RESUME [[table, tablePages*Al toDef s . PageSize]] ; 
END]; 
mth <- mtb+mti ; 
newmth ♦- mtb+newmti; 
InlineDefs.COPY[ 

from: mth, to: newmth, nwords: SIZE[MTRecord]+mth .frame. length-1] ; 
newmth. namedinstance ^ FALSE; 
newmth. gfi *- initialGFT[f name. gfi]. gfi ; 
FOR i IN [0. .newmth. frame. length) DO 

IF newmth .frame. frag[i] .gfi IN [mth. gf i . .mth. gf i+mth.ngf i) THEN 
newmth .frame . frag[i] .gfi <- 

newmth. gfi + mth .frame .frag[i] .gfi - mth. gfi; 
ENDLOOP; 
END; 
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MergeModuleTable: PROCEDURE [Reloc: Relocation, 
config: Configlndex, initialGFT: LoadStateGFT, code: BOOLEAN] « 
BEGIN OPEN data; 

MoveModule: PROCEDURE [old: MTHandle, mti: MTIndex] RETURNS [BOOLEAN] ■ 
BEGIN 

new: MTHandle; 

rgfi: GFTIndex *- Re1oc[old.gf i] ; 

frame: GlobalFrameHandle ^ ControlDefs.GFT[rgfi] .frame; 
newmti: MTIndex; 
segfti: FTIndex; 

oldsgb: CARDINAL <- LOOPHOLE[bcd+bcd. sgOff set] ; 
IF -FrameDefs.De1etedFrame[rgf i] THEN 
BEGIN OPEN m: mtb+newmti; 
header .nModules ^ header .nModules + 1; 

newmti <- TableDef s .Allocate[mttype, SIZE[MTRecord]+o1d .frame. length]; 
new <- mtb+newmti ; 
newt <- oldt; 

m.name ^ MapName[bcd, old. name]; 
IF old.namedinstance THEN 
BEGIN 

EnterNameInTable[[module[newmti]], MapName[bcd, FindName[bcd, [module[mti]]]]] ; 
m.namedinstance ^ TRUE 
END 
ELSE m.namedinstance *■ FALSE; 
m.file <- MergeFile[bcd, old. file]; 
segfti ^ IF code THEN FTSelf ELSE FTNull; 

m.code.sgi <- MergeSegment[bcd , oldsgb+old. code, sgi , segfti]; 
m.sseg ^ MergeSegment[bcd, oldsgb+old.sseg, FTNull]; 
m.gfi ^ initialGFT[Reloc[old.gfi]].gfi; 
MergeLinks[f rame , newmti, old, initialGFT]; 
IF old. config # CTNull THEN 
BEGIN 

m. config *- old.conf ig+conf igOffset; 

IF (m.config+ctb) .control = mti THEN (m.config+ctb) .control ^ newmti; 
END 
ELSE IF bcd.nConfigs « THEN 
BEGIN 
m. config <- 

TableDefs.Allocate[cttype, SIZE[CTRecord]]; 
(ctb+m.conf ig)t <- CTRecord[name: m.name, namedinstance: FALSE, 

file: m.file, config: CTNull, control: MTNull]; 
END 
ELSE m. config <- CTNull ; 
END 
ELSE IF old. config ff CTNull AND (old.conf ig+ctb+configOff set) . control = mti THEN 

(old.conf ig+ctb+configOffset) .control ^ MTNull; 
RETURN[FALSE]; 
END; 
[] ♦- EnumerateModuleTable[bcd, MoveModule]; 
END; 

MergeLinks: PROCEDURE [frame: GlobalFrameHandle, newmti: MTIndex, 
old: MTHandle, initialGFT: LoadStateGFT] « 
BEGIN OPEN data, m: mtb+newmti; 
linkbase: POINTER TO ControlLink; 
link: ControlLink; 
i: CARDINAL; 
IF f rame. codel inks THEN 
BEGIN 

FrameDefs .LockCode[ frame] ; 
linkbase <- f rame. code. codebase; 
END 
ELSE linkbase ^ LOOPHOLE[f rame]; 
linkbase <- linkbase - old.f rame. length; 
InlineDefs.COPY[ 

from: linkbase, to: @m. frame. frag, nwords: old.f rame. length]; 
FOR i IN [0. .old. frame. length) DO 
1 ink ^ (1 inkbase+i )t ; 
IF link « UnboundLink OR link « NullLink THEN 

link <- AddImport[old.f rame.frag[i]] 
ELSE 

SELECT link. tag FROM 
frame «> 

BEGIN OPEN f: L00PH0LE[1 ink , GlobalFrameHandle]; 
IF FrameDefs .OeletedFrame[l ink.gf i] 
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THEN link ^ AdclNewImport[old .frame. frag[i]] 
ELSE link.gfi ^ initia1GFT[f .gf i] .gf i ; 
END; 
procedure ■> 

IF FrameDefs.De1etedFrame[1 ink.gf i] 

THEN link ♦- AddNewImport[ol d .frame .frag[i]] 
ELSE link.gfi <- initialGFT[l ink.gf i] .gfi ; 
ENDCASE; 
ENDLOOP; 
IF frame. codelinks THEN 
BEGIN 

FrameDef s .UnlockCode[f rame] ; 

IF ~frame. started THEN FrameDef s.SwapOutCode[f rame]; 
END; 
END; 
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MergeExportTable: PROCEDURE [Reloc: Relocation, initialGFT: LoadStateGFT] - 
BEGIN OPEN data; 

MapExport: PROCEDURE [old: EXPHandle, eti: EXPIndex] RETURNS [BOOLEAN] ■ 
BEGIN 

neweti: EXPIndex; 

oldftb: TableDefs.TableBase <- LOOPHOLE[bcd+bcd.f tOff set]; 
oldssb: NameString ^ LOOPHOLE[bcd+bcd.ssOff set]; 
i, size: CARDINAL; 
found: BOOLEAN; 
hti: HTIndex; 

oldname: StringDef s.SubStringDescriptor; 
oldname ♦- 

[base: Ooldssb. string, offset: old. name, length: oldssb. size[old. name]] ; 
[found, hti] ^ BcdTabDefs .FindString[@oldname]; 
IF found THEN 

FOR neweti ^ FIRST[EXPIndex] . neweti + size 
UNTIL neweti ■ 

LOOPHOLE [ Tab leDefs. Tab leBounds[exp type]. size] 

DO OPEN new: etb+neweti; 

size ^ new.size+SIZE[EXPRecord]; 

IF hti = HtiName[new.name] AND new. port » old. port THEN 

BEGIN OPEN oldfile: ol df tb+old . f He , newfile: f tb+new. f ile; 
oldname. offset <- oldfile. name+1 ; 
oldname. length <- oldssb. size[oldf ile . name] ; 
IF BcdTabDefs . FindEquivalentString[6oldname] .found AND 
EquivalentVersions[@oldf ile. version , @newf ile. version] THEN 
BEGIN 
FOR i IN [0.. old. size) DO 

IF old.links[i].gf i # THEN -- assumes that most recently loaded config 

-- merged last 
BEGIN 

new.links[i] <- old . 1 inks[i] ; 

n€w.links[i].gfi ^ initialGFT[Reloc[old. 1 inks[i] .gf i]] .gf i ; 
END; 
ENDLOOP; 
IF ~new.namedinstance AND old.namedinstance THEN 
BEGIN 

new.namedinstance *- TRUE; 
EnterNameInTable[[export[n0weti]], 

MapName[bcd, FindName[bcd, [export[eti]]]]]; 
END; 
RETURN[FALSE]; 
END; 
END; 
ENDLOOP; 
[] ^ MakeNewExport[old, eti, Reloc, initialGFT]; 
RETURN[FALSE]; 
END; 
[] <- EnumerateExportTable[bcd, MapExport]; 
END; 

MakeNewExport: PROCEDURE [ 
old: EXPHandle. eti: EXPIndex, Reloc: Relocation, initialGFT: LoadStateGFT] 
RETURNS [neweti: EXPIndex] » 
BEGIN OPEN data; 
i: CARDINAL; 

header. nExports <- header. nExports + 1; 

neweti ^ TableDef s .Allocate[exptype, old. size+SIZE[EXPRecord]]; 
FOR i IN [0. .old. size) DO 

(etb+neweti ) . 1 inks[i] <- old . 1 inks[i] ; 

(etb+neweti) .links[i].gfi ♦- initial GFT[ Reloc [old. 1 inks[i] ,gf i]] . gf i ; 

ENDLOOP; 
(etb+neweti ). name ^ MapName[bcd, old. name]; 
(etb+neweti ) .file <- MergeFi le[bcd , old. file]; 
(etb+neweti ) .port «- old. port; 
(etb+neweti ). size ♦- old. size; 
IF old.namedinstance THEN 

BEGIN 

(etb+neweti) .namedinstance *- TRUE; 

EnterNameInTable[[export[neweti]], MapName[bcd, FindName[bcd, [export[eti]]]]]; 

END 
^ ELSE (etb+neweti) .namedinstance ^ FALSE; 
END; 
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Addlmport: PROCEDURE [link: ControlLink] RETURNS [ControlLink] - 
BEGIN OPEN data; 

Findlmport: PROCEDURE [imp: IMPHandle, iti: IMPIndex] RETURNS [BOOLEAN] - 
BEGIN 

RETURN [link.gfi IN [imp.gfi .. imp . gf i + irnp. ngf i )]; 
END; 
old: IMPHandle: 
iti, newiti: IMPIndex; 

oldftb: CARDINAL <r LOOPHOLE[bcd+bcd. ftOf f set] ; 
olditb: CARDINAL *- LOOPHOLE[bcd+bcd. impOff set] ; 
oldssb: NameString ^ LOOPHOLE[bcd+bcd.ssOff set]; 
oldname: SubStringDescriptor; 
found: BOOLEAN; 
hti: HTIndex; 

iti ^ EnumerateImportTab1e[bcd , Findlmport] . iti ; 
IF iti « BcdDefs.IMPNun THEN RETURN[AddNewImport[l ink]]; 
old ^ olditb+iti; 

oldname <- [Qoldssb. string, old. name, oldssb. size[old. name]]; 
[found, hti] <- BcdTabDef s.FindString[@oldname]; 
IF found THEN 

FOR newiti ^ FIRST[IMPIndex] , newiti + SIZE[IMPRecord] 
UNTIL newiti » 

LOOPHOLE [ Tab 1 eDef s. Tab leBounds[ imp type]. size] 

DO OPEN new: itb+newiti; 

IF hti « HtiName[new.name] THEN 

BEGIN OPEN oldfile: oldf tb+old .f ile, newfile: ftb+new.f ile; 

oldname. offset <- oldf ile. name; 

oldname. length ^ oldssb. size[oldf ile. name] ; 

IF BcdTabDefs.FindEquivalentStr ing[{§oldname]. found AND 

Equivalent\/ersions[0oldf ile. version, 0newf ile .version] THEN 
BEGIN 

IF '-new.namedinstance AND old.namedinstance THEN 
BEGIN 

new.namedinstance ♦- TRUE; 
EnterNameInTable[[ifnport[newiti]] , 

MapName[bcd, FindName[bcd, [import[i ti]]]]]; 
END; 
link.gfi <- new.gfi + link.gfi - old.gfi; 
RETURN[link]; 
END; 
END; 
ENDLOOP; 
header .nimports ^ header .nimports + 1; 
newiti ♦- TableDef s .Al locate[imptype, SIZE[IMPRecord]]; 
{ itb+newiti) .name ♦- MapName[bcd, old. name]; 
(itb+newiti). file <- MergeFile[bcd, old. file]; 
IF old.namedinstance THEN 
BEGIN 

( itb+newiti) .namedinstance *- TRUE; 

EnterNameInTable[[import[newiti]], MapName[bcd, FindName[bcd, [iniport[i ti]]]]]; 
END 
ELSE (itb+newiti) .namedinstance ♦- FALSE; 

(itb+newi ti) .gf i *- GetDummyGfi[( itb+newiti) .ngf i ^ old.ngfi]; 
( itb+newiti) , port <- old. port; 

link.gfi ♦- (itb+newiti ) .gfi + link.gfi - old.gfi; 
RETURN[link]; 
END; 

AddNewImport: PROCEDURE [link: ControlLink] RETURNS [ControlLink] = 
BEGIN 

1 ink. gfi ^ 0; 
1 ink.ep <- 0; 

RETURN[1 ink]; -- Currently cannot make a new import 
END; 
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MergeConfigTable: PROCEDURE [size: CARDINAL] RETURNS [delta: CARDINAL] - 
BEGIN OPEN data; 

ConfigMap: PROCEDURE [old: CTHandle, cti: CTIndex] RETURNS [BOOLEAN] ■ 
BEGIN OPEN new: ctb+del ta+cti ; 
new. name ^ MapName[bcd, old. name]; 
IF old .namedinstance THEN 
BEGIN 
EnterNameInTable[[conf ig[cti+delta]], MapName[bcd, FindName[bcd , 

[config[cti]]]]]; 
new. namedinstance ^ TRUE 
END 
ELSE new. namedinstance <- FALSE; 
new. control ♦- old. control; 

new. file ^ IF old. file - FTSelf THEN FTSelf ELSE MergeFile[bcd, old. file]; 
new.config ^ IF old.config « CTNull THEN CTNull ELSE old . conf ig+del ta; 
RETURN[FALSE]; 
END; 

delta ^ LOOPHOLE[TableDefs.Allocate[cttype, size]]; 
header. nConfigs <- header. nConfigs + bed. nConf igs; 
[] *- EnumerateConf igTable[bcd, ConfigMap]; 
RETURN 
END; 

EnterNamelnTable: PROCEDURE [owner: Namee, name: NameRecord] » 
BEGIN 

nti: NTIndex ^ TableDefs.Al locate[nttype, SIZE[NTRecord]] ; 
(data.ntb+nti)t *- [name, owner]; 
END; 

WhoIsFTSelf: PROCEDURE RETURNS [FTIndex] ■ 
BEGIN OPEN data; 

ss: SubStringDescriptor ^ [base: name, offset: 0, length: name. length]; 
n: NameRecord; 
IF bcdFile = BcdDef s. FTNull THEN 

BEGIN 

bcdFile ♦- TableDef s .Allocate[f ttype, SIZE[BcdDef s.FTRecord]]; 

n <- EnterName[0ss] ; 

(f tb+bcdFile)t <- [n, bed. version]; 

END; 
RETURN[bcdFile]; 
END; 

MergeBcd: PUBLIC PROCEDURE [mergee: BcdBase. RealFromRel: Relocation, config: Configlndex, 
initialGFT: LoadStateGFT, code: BOOLEAN, bcdname: STRING] « 
BEGIN OPEN data; 
BEGIN 

ENABLE TableDefs.TableOverflow »> 
BEGIN 

ExpandTable[]; 

RESUME [[table, tablePages*Al toDef s . PageSize]]; 
END; 
bed *- mergee; 
bcdFile ♦- FTNull; 
name <- bcdname; 
configOffset *- IF bed. nConfigs « THEN 

ELSE MergeConfigTable[LOOPHOLE[bcd.ctLimit, CARDINAL]]; 
MergeModuleTable[RealFromRel . config, initialGFT, code]; 
MergeExportTable[RealFromRel , initialGFT]; 
END; 
END; 

MergedBcdSize: PUBLIC PROCEDURE RETURNS [size: CARDINAL] » 
BEGIN OPEN data. header, BedDefs, TableDefs; 
s: CARDINAL; 
size ^ SIZE[BCD]; 

ssOffset <- size; size <- size + (ssLimit <- TableBounds[sstype] . size) ; 
ctOffset ♦- size; size <- size + (s <- TableBounds[cttype] , size) ; 
ctLimit ^ LOOPHOLE[s, CTIndex]; 

mtOffset <- size; size «- size + (s ♦- TableBounds[mttype] . size) ; 
mtLimit <- LOOPHOLE[s. MTIndex]; 

impOffset <- size; size ♦- size + (s *- TableBounds[imptype] . size) ; 
impLimit <- L00PnOLE[s. IMPIndex]; 

expOffset ♦- size; size ^ size + (s ♦- TableBounds[exptype] . size) ; 
expLimit <- LOOPHOLE[s, EXPIndex]; 
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sgOffset ♦- size; size <- size + (s ^ TableBounds[sgtype].size) ; 

sgLimit ^ LOOPHOLE[s, SGIndex]; 

ftOffset ^ size; size ♦- size + (s ♦- TableBounds[fttype].size) ; 

ftLimit <r LOOPHOLE[s, FTIndex]; 

ntOffset *" size; size ^ size + (s +- Tab1eBounds[nttype].size) ; 

ntLimit <- LOOPHOLE[s. NTIndex]; 

nPages ♦- SystBmDefs.PagesForWords[size]; 

nDummies ^ GetDummyGf i[0]-f irstdummy ; 

END; 

WriteMergedBcd: PUBLIC PROCEDURE [movewords: PROCEDURE [POINTER, CARDINAL]] ■ 
BEGIN OPEN BcdDefs; 
base: TableDefs.TableBase; 
size: CARDINAL; 

movewords [@data. header, SIZE[BcdDefs.BCD]]; 
[base, size] <- TableDefs.TableBounds[sstype]; 
movewords [LOOPHOLE [base] , size]; 
[base, size] *- TableDefs .Tab1eBounds[cttype]; 
movewords[LOOPHOLE[base], size]; 
[base, size] <- TableDefs .Tab1eBounds[mttype]; 
movewords[LOOPHOLE[base] , size] ; 
[base, size] <- TableDefs .TableBounds[imptype] ; 
movewords[LOOPHOLE[base] , size]; 
[base, size] ♦- TableDefs .TableBounds[exptype] ; 
movewords[LOOPHOLE[base], size]; 
[base, size] <- TableDefs .TableBounds[sgtype] ; 
movewords[LOOPHOLE[base], size]; 
[base, size] ♦- TableDefs .TableBounds[fttype]; 
movewords[LOOPHOLE[base] , size]; 
[base, size] <- TableDefs .TableBounds[nttype] ; 
movewords[LOOPHOLE[base] , size]; 
END; 

-- Administrative Procedures 

InitializeMerge: PUBLIC PROCEDURE [sizeof table: CARDINAL, lastrealgfi: GFTIndex] 
BEGIN OPEN data, TableDefs; 
time: Al toFileDef s.TIME; 

net: CARDINAL <- MiscDef s .GetNetworkNumber[] ; 

data <r SystemDefs.AllocateHeapNode[SIZE[BcdMergeDefs.MergeData]]; 
tablePages ♦- SystemDefs .PagesForWords[sizeof table] ; 
table ^ LOOPHOLE[SystemDefs.AllocatePages[tablePages], CARDINAL]; 
Initial izeTable[[ table, tablePages*Al toDef s.PageSize], BinderNTables]; 
AddNotify[Notifier]; 
BcdTabDefs.BcdTabInit[]; 
nextGfi <- 1 ; 

MiscDefs.Zero[@dat a. header, SIZE[BcdDef s.BCD]]; 
header .f irstdummy <- nextDummyGfi <- 1 astrealgf i+1; 
header .versionident ^ BcdDefs. VersionID; 
header .source *- BcdDefs .NullName; 
time <- MiscDefs.DAYTIME[]; 
header .version ^ BcdDefs .VersionStamp[ 

time: TimeOef s .PackedTime[lowbits : time. low, highbits: time. high], 

zapped: FALSE, 

net: net, 

host: OsStaticDefs . OsS t at ics. Serial Number]; 
header .definitions <- FALSE; 
expandedtable ♦- FALSE; 
RETURN 
END; 

FinalizeMerge: PUBLIC PROCEDURE - 
BEGIN OPEN TableDefs; 
BcdTabDefs.BcdTabErase[]; 
DropNotify[Notif ier]; 
EraseTable[]; 
IF data. expandedtable THEN 

BEGIN OPEN SegmentDefs; 

Unlock[data. tableSegment]; 

DeleteFileSegment[data.tableSegment] 

END 
ELSE SystemDefs. FreeSegment[LOOPHOLE[data. table]]; 
SystemDefs . FreeHeapNode[data]; 
RETURN 
END; 
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ExpandTable: PROCEDURE ■ 

BEGIN OPEN SegmentDefs, data; 
IF -expandedtable THEN 
BEGIN 
tableSegment ♦- NewFileSegment[ 

N0wFn8["swatee", Read+Write+Append, Def aultVersion], 
1, 

tablePages, 
Read+Write]; 
ChangeDataToFileSegm0nt[VMtoDataSegment[LOOPHOLE[ table]], tableSegment]; 
expandedtable ^ TRUE; 
END; 
Unlock[ tableSegment]; SwapOutitableSegment]; 

MoveFileSegment[tabl8Segment, DefauUBase, tablePages ♦- tablePages + 1]; 
SwapIn[tableSegment]; 

table ^ LOOPHOLE[FileSegmentAddress[tableSegment], CARDINAL]; 
END; 

END. 



